<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
	If Not Request.QueryString("sUrl") = "" Then
		Session.CodePage = 65001
		Dim objXmlHttp
		Dim strHTML
		Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
		objXmlHttp.open "GET", Request.QueryString("sUrl"), False
		objXmlHttp.send
		strHTML = objXmlHttp.responseText
		Set objXmlHttp = Nothing
		Response.ContentType = "application/xhtml+xml"
%>
<%= strHTML %>
<%
	End If
%>
